home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #067 (1990-04)(Amiga User Group Deutschland e.V.).zip / Franz PD Disk #067 (1990-04)(Amiga User Group Deutschland e.V.).adf / Include / Text.i < prev    next >
Text File  |  1989-07-02  |  2KB  |  84 lines
  1. {
  2.     Text.i of PCQ Pascal
  3.  
  4.     These are the structures required for messing around with
  5.     fonts and text in a graphics window.  Some of this I pulled
  6.     from Graphics.i, which will cause problems with some programs.
  7.     Sorry about that, but it's happened before and I'm afraid it
  8.     will probably happen again.
  9. }
  10.  
  11. {$I "Include/Graphics.i"}
  12.  
  13. Const
  14.     FS_NORMAL    = 0;
  15.     FSF_UNDERLINED = 1;
  16.     FSF_BOLD    = 2;
  17.     FSF_ITALIC    = 4;
  18.     FSF_EXTENDED = 8;
  19.  
  20. Type
  21.     TextAttr = record
  22.     taName    : String;
  23.     taYSize    : Short;
  24.     taStyle    : Byte;
  25.     taFlags    : Byte;
  26.     end;
  27.     TextAttrPtr = ^TextAttr;
  28.  
  29.     TextFont = record
  30.     tfMessage    : Message;
  31.     tfYSize        : Short;
  32.     tfStyle        : Byte;
  33.     tfFlags        : Byte;
  34.     tfXSize        : Short;
  35.     tfBaseline    : Short;
  36.     tfBoldSmear    : Short;
  37.     tfAccessors    : Short;
  38.     tfLoChar,
  39.     tfHiChar    : Byte;
  40.     tfCharData    : Address;
  41.     tfModulo    : Short;
  42.     tfCharLoc    : Address;
  43.     tfCharSpace    : Address;
  44.     tfCharKern    : Address;
  45.     end;
  46.     TextFontPtr = ^TextFont;
  47.  
  48. Procedure AddFont(TF : TextFontPtr);
  49.     External;
  50.  
  51. Procedure AskFont(rp : RastPortPtr; TxtAtt : TextAttrPtr);
  52.     External;
  53.  
  54. Function AskSoftStyle(rp : RastPortPtr) : Integer;
  55.     External;
  56.  
  57. Procedure ClearEOL(rp : RastPortPtr);
  58.     External;
  59.  
  60. Procedure ClearScreen(rp : RastPortPtr);
  61.     External;
  62.  
  63. Procedure CloseFont(font : TextFontPtr);
  64.     External;
  65.  
  66. Function OpenFont(ta : TextAttrPtr) : TextFontPtr;
  67.     External;
  68.  
  69. Procedure RemFont(tf : TextFontPtr);
  70.     External;
  71.  
  72. Procedure SetFont(rp : RastPortPtr; font : TextFontPtr);
  73.     External;
  74.  
  75. Function SetSoftStyle(rp : RastPortPtr; style, enable : Integer) : Integer;
  76.     External;
  77.  
  78. Procedure GText(rp : RastPortPtr; s : String; l : Integer);
  79.     External;
  80.  
  81. Function TextLength(rp : RastPortPtr; s : String; l : Integer) : Integer;
  82.     External;
  83.  
  84.